home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / FSW-ONE.ZIP / ONELINER.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-04-05  |  4KB  |  266 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     String   STRING001
  22.     String   STRING002
  23.     String   STRING003
  24.     String   STRING004
  25.     String   STRING005
  26.     String   STRING006
  27.     String   STRING007
  28.     String   STRING008
  29.     String   STRING009
  30.     String   TSTRING010(11)
  31.     String   STRING011
  32.     String   STRING012
  33.     String   STRING013
  34.     String   STRING014
  35.     String   TSTRING015(3)
  36.     String   STRING016
  37.     String   STRING017
  38.  
  39. ;------------------------------------------------------------------------------
  40.  
  41.     FOpen 1, PPEPath() + "oneliner.cfg", 2, 0
  42.     FGet 1, STRING007
  43.     FGet 1, STRING008
  44.     FGet 1, STRING001
  45.     FGet 1, STRING002
  46.     FGet 1, STRING003
  47.     FGet 1, STRING004
  48.     FGet 1, STRING006
  49.     FGet 1, STRING012
  50.     FGet 1, STRING011
  51.     FGet 1, STRING017
  52.     FGet 1, STRING016
  53.     FClose 1
  54.     FOpen 1, PPEPath() + "fade.dat", 2, 0
  55.     For INTEGER001 = 1 To 3
  56.         FGet 1, TSTRING015(INTEGER001)
  57.     Next
  58.     FClose 1
  59.     STRING014 = Lower(U_Name())
  60.     StartDisp 1
  61.     FOpen 1, PPEPath() + "oneliner.dat", 2, 0
  62.     For INTEGER001 = 1 To 11
  63.         FGet 1, TSTRING010(INTEGER001)
  64.     Next
  65.     FClose 1
  66.     Cls
  67.     DispFile PPEPath() + STRING007, 0
  68.     AnsiPos 1, 11
  69.     For INTEGER001 = 1 To 10
  70.         Print TSTRING010(INTEGER001)
  71.         Newline
  72.     Next
  73.     :LABEL001
  74.     AnsiPos 1, 22
  75.     PrintLn STRING008 + STRING001 + STRING004
  76.     AnsiPos 1, 23
  77.     Print " "
  78.     Backup 1
  79.     :LABEL002
  80.     STRING005 = Inkey()
  81.     If (STRING005 == "h") Then
  82.         DtrOff
  83.     Endif
  84.     If ((STRING005 == "RIGHT") || (STRING005 == "LEFT")) Goto LABEL003
  85.     If ((STRING005 == "n") || (STRING005 == "N")) Goto LABEL003
  86.     If (STRING005 == Chr(13)) Goto LABEL005
  87.     Goto LABEL002
  88.     :LABEL003
  89.     AnsiPos 1, 22
  90.     PrintLn STRING008 + STRING002 + STRING003
  91.     :LABEL004
  92.     STRING005 = Inkey()
  93.     If ((STRING005 == "RIGHT") || (STRING005 == "LEFT")) Goto LABEL001
  94.     If ((STRING005 == "y") || (STRING005 == "Y")) Goto LABEL001
  95.     If (STRING005 == Chr(13)) Goto LABEL011
  96.     Goto LABEL004
  97.     :LABEL005
  98.     Cls
  99.     DispFile PPEPath() + STRING006, 0
  100.     AnsiPos 33, 19
  101.     Print STRING012
  102.     AnsiPos 1, 20
  103.     Print STRING011
  104.     AnsiPos 1, 20
  105.     Print "@X07["
  106.     :LABEL006
  107.     STRING005 = Inkey()
  108.     If (Len(STRING009) == 77) Goto LABEL008
  109.     If (STRING005 == Chr(13)) Goto LABEL008
  110.     If ((STRING005 == "RIGHT") || (STRING005 == "LEFT")) Goto LABEL006
  111.     If ((STRING005 == "UP") || (STRING005 == "DOWN")) Goto LABEL006
  112.     If (STRING005 == Chr(27)) Goto LABEL009
  113.     If (STRING005 == Chr(7)) Goto LABEL006
  114.     If (STRING005 == Chr(143)) Goto LABEL012
  115.     If (STRING005 == Chr(8)) Goto LABEL007
  116.     If (STRING005 == "") Goto LABEL006
  117.     STRING005 = Left(STRING005, 1)
  118.     If (STRING005 == "@") Goto LABEL006
  119.     For INTEGER001 = 1 To 2
  120.         Print TSTRING015(INTEGER001) + STRING005
  121.         Delay 2
  122.         Backup 1
  123.     Next
  124.     Print TSTRING015(3) + STRING005
  125.     STRING009 = STRING009 + STRING005
  126.     Goto LABEL006
  127.     :LABEL007
  128.     If (Len(STRING009) == 0) Goto LABEL006
  129.     Backup 1
  130.     Print "@X0F.."
  131.     Backup 2
  132.     STRING009 = Left(STRING009, Len(STRING009) - 1)
  133.     Goto LABEL006
  134.     :LABEL008
  135.     If (Len(STRING009) == 0) Goto LABEL009
  136.     Delete PPEPath() + "oneliner.dat"
  137.     FCreate 2, PPEPath() + "oneliner.dat", 2, 0
  138.     FOpen 2, PPEPath() + "oneliner.dat", 2, 0
  139.     For INTEGER001 = 2 To 10
  140.         FPutLn 2, TSTRING010(INTEGER001)
  141.     Next
  142.     FPutLn 2, STRING017, STRING016, STRING009
  143.     FClose 2
  144.     Log "@X0F" + STRING014 + " @X0Fentered: @X0F" + STRING009, ""
  145.     End
  146.     :LABEL009
  147.     Cls
  148.     STRING013 = "aborted..."
  149.     For INTEGER002 = 1 To 3
  150.         AnsiPos 1, 1
  151.         Print "@X08" + STRING013
  152.         Delay 2
  153.         AnsiPos 1, 1
  154.         Print "@X04" + STRING013
  155.         Delay 2
  156.         AnsiPos 1, 1
  157.         Print "@X0C" + STRING013
  158.         Delay 2
  159.         AnsiPos 1, 1
  160.         Print "@X0F" + STRING013
  161.         Delay 2
  162.         AnsiPos 1, 1
  163.         Print "@X0C" + STRING013
  164.         Delay 2
  165.         AnsiPos 1, 1
  166.         Print "@X04" + STRING013
  167.         Delay 2
  168.         AnsiPos 1, 1
  169.         Print "@X08" + STRING013
  170.     Next
  171.     :LABEL010
  172.     Cls
  173.     AnsiPos 1, 1
  174.     Print "@X08o@X04n@X0Ce@X0Fliners v1.0b by: lil elvis [@X0Cf@X04s@X08w]"
  175.     Delay 2
  176.     Newline
  177.     Print "@WAIT@"
  178.     End
  179.     :LABEL011
  180.     Goto LABEL010
  181.     :LABEL012
  182.     AnsiPos 1, 20
  183.     PrintLn "@X08nevesis rules"
  184.     Delay 2
  185.     AnsiPos 1, 20
  186.     PrintLn "@X04nevesis rules"
  187.     Delay 2
  188.     AnsiPos 1, 20
  189.     PrintLn "@X0Cnevesis rules"
  190.     Delay 2
  191.     AnsiPos 1, 20
  192.     Print "@X07[@X0F............."
  193.     Backup 13
  194.     Print STRING016 + STRING009
  195.     Goto LABEL006
  196.  
  197. ;------------------------------------------------------------------------------
  198. ;
  199. ; Usage report (before postprocessing)
  200. ;
  201. ; ■ Statements used :
  202. ;
  203. ;    2       End
  204. ;    4       Cls
  205. ;    37      Goto 
  206. ;    20      Let 
  207. ;    19      Print 
  208. ;    5       PrintLn 
  209. ;    25      If 
  210. ;    2       DispFile 
  211. ;    1       FCreate 
  212. ;    4       FOpen 
  213. ;    4       FClose 
  214. ;    13      FGet 
  215. ;    2       FPutLn 
  216. ;    1       StartDisp 
  217. ;    1       Delete 
  218. ;    1       Log 
  219. ;    1       DtrOff
  220. ;    11      Delay 
  221. ;    2       Newline
  222. ;    19      AnsiPos 
  223. ;    5       Backup 
  224. ;
  225. ;
  226. ; ■ Functions used :
  227. ;
  228. ;    32      +
  229. ;    1       -
  230. ;    25      ==
  231. ;    6       <
  232. ;    6       <=
  233. ;    12      >=
  234. ;    7       !
  235. ;    12      &&
  236. ;    12      ||
  237. ;    4       Len(
  238. ;    1       Lower()
  239. ;    2       Left()
  240. ;    7       Chr()
  241. ;    1       U_Name()
  242. ;    3       Inkey()
  243. ;    8       PPEPath()
  244. ;
  245. ;------------------------------------------------------------------------------
  246. ;
  247. ; Analysis flags : B
  248. ;
  249. ; B - Brute hangup ■ 1
  250. ;     Program hangup without notification. This may be a good way to
  251. ;     disconnect a user, but if used randomly, may be very nasty
  252. ;     ■ Search for : HANGUP, DTROFF
  253. ;
  254. ;------------------------------------------------------------------------------
  255. ;
  256. ; Postprocessing report
  257. ;
  258. ;    6       For/Next
  259. ;    0       While/EndWhile
  260. ;    1       If/Then or If/Then/Else
  261. ;    0       Select Case
  262. ;
  263. ;------------------------------------------------------------------------------
  264. ;                 AEGiS Corp - Break the routines, code against the machines!
  265. ;------------------------------------------------------------------------------
  266.